home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / PD / Anwendungen / AmiCAD / ARexx / SelectParts.AmiCAD < prev    next >
Text File  |  1998-06-17  |  2KB  |  67 lines
  1. /* Sélection des composants du type sélectionné ou spécifié
  2.    © R.Florac, Chez Corbin, 19 mars 1998, v1.00
  3.    Version 1.01, 20 avril 1998 (ajout affichage type d'élément)
  4.    $VER: SelectParts.AmiCAD 1.02 (© R.Florac, 27 avril 1998) (ajout rectangles) */
  5.  
  6. options results     /* indispensable pour récupérer le résultat des macros */
  7.  
  8. signal on error     /* pour l'interception des erreurs */
  9. signal on syntax
  10.  
  11. 'FIRSTSEL'; objet = result
  12. if objet = 0 then do
  13.     'COMPOSANT=ASK("Quel est le nom du"+CHR(10)+"composant recherché ?")'
  14.     part=result
  15.     if part="" then exit
  16. end
  17. else do
  18.     'COMPOSANT=PARTNAME('objet')'
  19.     part=result
  20.     if part="" then do
  21.     'TYPE('objet')'; type=result
  22.     'SECURITY(OBJECTS(-1)+10):FOR(I=1:N=0,I<=OBJECTS(-1),IF(TYPE(I)=='type',MARK(I):N=N+1,0),I=I+1)'
  23.     'N'; n=result
  24.     affichage(n,type)
  25.     exit
  26.     end
  27. end
  28. 'SECURITY(OBJECTS(-1)+10):N=0:I=0:WHILE(I=IF(I+1<=OBJECTS(-1),FINDPART(I+1,COMPOSANT),0),MARK(I):N=N+1)'
  29. 'N'; n=result
  30. affichage(n,1)
  31.  
  32. exit
  33.  
  34. affichage: procedure expose part
  35.     parse arg nombre, type
  36.     select
  37.     when type = 1 then element = part
  38.     when type = 2 then element = "fil de liaison"
  39.     when type = 3 then element = "arc de cercle"
  40.     when type = 4 then element = "texte"
  41.     when type = 5 then element = "référence de composant"
  42.     when type = 6 then element = "valeur de composant"
  43.     when type = 7 then element = "connexion"
  44.     when type = 8 then element = "fil en pointillé"
  45.     when type = 9 then element = "bus"
  46.     when type = 10 then element = "ellipse"
  47.     when type = 11 then element = "connecteur d'entrée"
  48.     when type = 12 then element = "connecteur de sortie"
  49.     when type = 15 then element = "trait double"
  50.     when type = 21 then element = "ligne personnalisée"
  51.     when type = 22 then element = "rectangle"
  52.     otherwise element = "élément"
  53.     end
  54.     'MESSAGE("Type d''élément sélectionné:"+CHR(10)+"'element'"+CHR(10)+"Quantité trouvée: 'nombre'")'
  55.     exit
  56. end
  57.  
  58. /* Traitement des erreurs, interruption du programme */
  59. syntax:
  60. erreur=RC
  61. 'MESSAGE("Script SelectParts"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  62. exit
  63.  
  64. error:
  65. 'MESSAGE("Script SelectParts"+CHR(10)+"Erreur en ligne 'SIGL'")'
  66. exit
  67.